import Data.List
import Control.Monad

seqFib :: (Integral a) => [a]
seqFib = 0 : scanl (+) 1 seqFib

isFibo :: (Integral a) => a -> String
isFibo n = if n == nearest then "IsFibo" else "IsNotFibo"
    where nearest = head $ dropWhile (<n) seqFib

main = do
    q <- readLn
    xs <- replicateM q getLine
    mapM_ (putStrLn . isFibo . read) xs